********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Konversi_det_ke_jam;
Uses Crt;
Type jam=record
     jj : integer;
     mm : integer;
     dd : integer;
end;
Var
     j : jam;
     tot_detik : integer;
     sisa : integer;
Begin
Clrscr;
Writeln ('Konversi detik ke jam');
Write ('masukan jumlah detik :'); Readln(tot_detik);
Writeln;
j.jj := (tot_detik div 3600);
sisa := (tot_detik mod 3600);
j.mm := (sisa div 60);
j.dd := (sisa mod 60);
Writeln ('Konversi detik ke jam:',j.jj, j.mm, j.dd);
readln;
End.